Option Explicit
Sub L_Sample074()
    'Microsoft Forms 2.0 Object Libraryѷӳ]w
    Dim myDobj As New DataObject
    Dim myStr
    With Worksheets(1).Cells(1, 1)
        .Value = "ABC"
        .Copy
    End With
    With myDobj
        .GetFromClipboard
        myStr = .GetText
    End With
    MsgBox myStr
    Set myDobj = Nothing
End Sub
